home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / firewo1a / firework.frm < prev    next >
Text File  |  1999-09-12  |  23KB  |  539 lines
  1. VERSION 5.00
  2. Begin VB.Form FireWorksFrm 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4680
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    WindowState     =   2  'Maximized
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   1
  19.       Left            =   2040
  20.       Top             =   1440
  21.    End
  22. End
  23. Attribute VB_Name = "FireWorksFrm"
  24. Attribute VB_GlobalNameSpace = False
  25. Attribute VB_Creatable = False
  26. Attribute VB_PredeclaredId = True
  27. Attribute VB_Exposed = False
  28. 'Name:  FireWorks
  29. 'Author:  InfraRed
  30. 'Comments:  Have fun with my little fireworks
  31. 'source code.  You can use it for a screen saver
  32. 'or just some cool opening for a program.  If you
  33. 'can, just give me a little credit.  Good luck
  34. 'with my source code!
  35.  
  36. Dim FirePosX(999) As Long 'The X position for the fireworks
  37. Dim ExplodePosY(999) As Long 'This is where they will explode
  38. Dim CurY(999) As Long 'The Y position for the fireworks
  39. Dim FireColorR(999) As Integer 'The red in all of the fireworks' colors
  40. Dim FireColorG(999) As Integer 'The green in all of the fireworks' colors
  41. Dim FireColorB(999) As Integer 'The blue in all of the fireworks' colors
  42. Dim Explode(999) As Boolean 'This tells the program if the fireworks are exploding
  43. Dim Speed(999) As Integer 'This is the speed that the fireworks move at
  44. 'Here are the X and Y positions for the exploding firework 'debree'
  45. Dim Explode1X(999) As Long
  46. Dim Explode1Y(999) As Long
  47. Dim Explode2X(999) As Long
  48. Dim Explode2Y(999) As Long
  49. Dim Explode3X(999) As Long
  50. Dim Explode3Y(999) As Long
  51. Dim Explode4X(999) As Long
  52. Dim Explode4Y(999) As Long
  53. Dim Explode5X(999) As Long
  54. Dim Explode5Y(999) As Long
  55. Dim Explode6X(999) As Long
  56. Dim Explode6Y(999) As Long
  57. Dim Explode7X(999) As Long
  58. Dim Explode7Y(999) As Long
  59. Dim Explode8X(999) As Long
  60. Dim Explode8Y(999) As Long
  61. Dim Explode9X(999) As Long
  62. Dim Explode9Y(999) As Long
  63. Dim Explode10X(999) As Long
  64. Dim Explode10Y(999) As Long
  65. Dim Explode11X(999) As Long
  66. Dim Explode11Y(999) As Long
  67. Dim Explode12X(999) As Long
  68. Dim Explode12Y(999) As Long
  69. Dim Explode13X(999) As Long
  70. Dim Explode13Y(999) As Long
  71. Dim Explode14X(999) As Long
  72. Dim Explode14Y(999) As Long
  73. Dim Explode15X(999) As Long
  74. Dim Explode15Y(999) As Long
  75. Dim Explode16X(999) As Long
  76. Dim Explode16Y(999) As Long
  77. Dim Explode17X(999) As Long
  78. Dim Explode17Y(999) As Long
  79. Dim Explode18X(999) As Long
  80. Dim Explode18Y(999) As Long
  81. Dim Explode19X(999) As Long
  82. Dim Explode19Y(999) As Long
  83. Dim Explode20X(999) As Long
  84. Dim Explode20Y(999) As Long
  85. Dim Explode21X(999) As Long
  86. Dim Explode21Y(999) As Long
  87. Dim Explode22X(999) As Long
  88. Dim Explode22Y(999) As Long
  89. Dim Explode23X(999) As Long
  90. Dim Explode23Y(999) As Long
  91. Dim Explode24X(999) As Long
  92. Dim Explode24Y(999) As Long
  93. Dim Explode25X(999) As Long
  94. Dim Explode25Y(999) As Long
  95. Dim Explode26X(999) As Long
  96. Dim Explode26Y(999) As Long
  97. Dim Explode27X(999) As Long
  98. Dim Explode27Y(999) As Long
  99. Dim Explode28X(999) As Long
  100. Dim Explode28Y(999) As Long
  101. Dim Explode29X(999) As Long
  102. Dim Explode29Y(999) As Long
  103. Dim Explode30X(999) As Long
  104. Dim Explode30Y(999) As Long
  105. Dim Explode31X(999) As Long
  106. Dim Explode31Y(999) As Long
  107. Dim Explode32X(999) As Long
  108. Dim Explode32Y(999) As Long
  109. Dim Explode33X(999) As Long
  110. Dim Explode33Y(999) As Long
  111. Dim Explode34X(999) As Long
  112. Dim Explode34Y(999) As Long
  113. Dim Explode35X(999) As Long
  114. Dim Explode35Y(999) As Long
  115. Dim Explode36X(999) As Long
  116. Dim Explode36Y(999) As Long
  117. Dim Explode37X(999) As Long
  118. Dim Explode37Y(999) As Long
  119. Dim Explode38X(999) As Long
  120. Dim Explode38Y(999) As Long
  121. Dim Explode39X(999) As Long
  122. Dim Explode39Y(999) As Long
  123. Dim Explode40X(999) As Long
  124. Dim Explode40Y(999) As Long
  125. Dim Explode41X(999) As Long
  126. Dim Explode41Y(999) As Long
  127. Dim Explode42X(999) As Long
  128. Dim Explode42Y(999) As Long
  129. Dim Explode43X(999) As Long
  130. Dim Explode43Y(999) As Long
  131. Dim Explode44X(999) As Long
  132. Dim Explode44Y(999) As Long
  133. Dim Explode45X(999) As Long
  134. Dim Explode45Y(999) As Long
  135. Dim Explode46X(999) As Long
  136. Dim Explode46Y(999) As Long
  137. Dim Explode47X(999) As Long
  138. Dim Explode47Y(999) As Long
  139. Dim Explode48X(999) As Long
  140. Dim Explode48Y(999) As Long
  141. Dim Explode49X(999) As Long
  142. Dim Explode49Y(999) As Long
  143. Dim Explode50X(999) As Long
  144. Dim Explode50Y(999) As Long
  145. Dim ExplodeStep(999) As Integer
  146. Dim FadeStep(999) As Integer
  147.  
  148. Public Sub Restart(Pos As Integer) 'This will clear and restart a firework after it has exploded
  149. Randomize Timer
  150. 'This will clear all of the explosion 'debree'
  151. BlankExplosion Pos
  152. 'This will reset all of the firework settings
  153. FirePosX(Pos) = Int(((Screen.Width - 1) - 1 + 1) * Rnd + 1)
  154. CurY(Pos) = Screen.Height
  155. FadeStep(Pos) = 0
  156. ExplodePosY(Pos) = Int((1 - (Screen.Height * (2 / 3)) + 1) * Rnd) + (Screen.Height / 2) + (Screen.Height * ((2 / 3) / 3))
  157. FireColorR(Pos) = Int((255 - 1) * Rnd)
  158. FireColorG(Pos) = Int((255 - 1) * Rnd)
  159. FireColorB(Pos) = Int((255 - 1) * Rnd)
  160. Speed(Pos) = Int((100 - 50 + 1) * Rnd + 50)
  161. Explode(Pos) = False
  162. ExplodeStep(Pos) = 0
  163. End Sub
  164.  
  165. Public Sub DrawExplode(Pos As Integer)
  166. If ExplodeStep(Pos) = 0 Then
  167. 'This will put all of the explosion 'debree' in a starting place
  168. Explode1X(Pos) = FirePosX(Pos)
  169. Explode1Y(Pos) = CurY(Pos)
  170. Explode2X(Pos) = FirePosX(Pos)
  171. Explode2Y(Pos) = CurY(Pos)
  172. Explode3X(Pos) = FirePosX(Pos)
  173. Explode3Y(Pos) = CurY(Pos)
  174. Explode4X(Pos) = FirePosX(Pos)
  175. Explode4Y(Pos) = CurY(Pos)
  176. Explode5X(Pos) = FirePosX(Pos)
  177. Explode5Y(Pos) = CurY(Pos)
  178. Explode6X(Pos) = FirePosX(Pos)
  179. Explode6Y(Pos) = CurY(Pos)
  180. Explode7X(Pos) = FirePosX(Pos)
  181. Explode7Y(Pos) = CurY(Pos)
  182. Explode8X(Pos) = FirePosX(Pos)
  183. Explode8Y(Pos) = CurY(Pos)
  184. Explode9X(Pos) = FirePosX(Pos)
  185. Explode9Y(Pos) = CurY(Pos)
  186. Explode10X(Pos) = FirePosX(Pos)
  187. Explode10Y(Pos) = CurY(Pos)
  188. Explode11X(Pos) = FirePosX(Pos)
  189. Explode11Y(Pos) = CurY(Pos)
  190. Explode12X(Pos) = FirePosX(Pos)
  191. Explode12Y(Pos) = CurY(Pos)
  192. Explode13X(Pos) = FirePosX(Pos)
  193. Explode13Y(Pos) = CurY(Pos)
  194. Explode14X(Pos) = FirePosX(Pos)
  195. Explode14Y(Pos) = CurY(Pos)
  196. Explode15X(Pos) = FirePosX(Pos)
  197. Explode15Y(Pos) = CurY(Pos)
  198. Explode16X(Pos) = FirePosX(Pos)
  199. Explode16Y(Pos) = CurY(Pos)
  200. Explode17X(Pos) = FirePosX(Pos)
  201. Explode17Y(Pos) = CurY(Pos)
  202. Explode18X(Pos) = FirePosX(Pos)
  203. Explode18Y(Pos) = CurY(Pos)
  204. Explode19X(Pos) = FirePosX(Pos)
  205. Explode19Y(Pos) = CurY(Pos)
  206. Explode20X(Pos) = FirePosX(Pos)
  207. Explode20Y(Pos) = CurY(Pos)
  208. Explode21X(Pos) = FirePosX(Pos)
  209. Explode21Y(Pos) = CurY(Pos)
  210. Explode22X(Pos) = FirePosX(Pos)
  211. Explode22Y(Pos) = CurY(Pos)
  212. Explode23X(Pos) = FirePosX(Pos)
  213. Explode23Y(Pos) = CurY(Pos)
  214. Explode24X(Pos) = FirePosX(Pos)
  215. Explode24Y(Pos) = CurY(Pos)
  216. Explode25X(Pos) = FirePosX(Pos)
  217. Explode25Y(Pos) = CurY(Pos)
  218. Explode26X(Pos) = FirePosX(Pos)
  219. Explode26Y(Pos) = CurY(Pos)
  220. Explode27X(Pos) = FirePosX(Pos)
  221. Explode27Y(Pos) = CurY(Pos)
  222. Explode28X(Pos) = FirePosX(Pos)
  223. Explode28Y(Pos) = CurY(Pos)
  224. Explode29X(Pos) = FirePosX(Pos)
  225. Explode29Y(Pos) = CurY(Pos)
  226. Explode30X(Pos) = FirePosX(Pos)
  227. Explode30Y(Pos) = CurY(Pos)
  228. Explode31X(Pos) = FirePosX(Pos)
  229. Explode31Y(Pos) = CurY(Pos)
  230. Explode32X(Pos) = FirePosX(Pos)
  231. Explode32Y(Pos) = CurY(Pos)
  232. Explode33X(Pos) = FirePosX(Pos)
  233. Explode33Y(Pos) = CurY(Pos)
  234. Explode34X(Pos) = FirePosX(Pos)
  235. Explode34Y(Pos) = CurY(Pos)
  236. Explode35X(Pos) = FirePosX(Pos)
  237. Explode35Y(Pos) = CurY(Pos)
  238. Explode36X(Pos) = FirePosX(Pos)
  239. Explode36Y(Pos) = CurY(Pos)
  240. Explode37X(Pos) = FirePosX(Pos)
  241. Explode37Y(Pos) = CurY(Pos)
  242. Explode38X(Pos) = FirePosX(Pos)
  243. Explode38Y(Pos) = CurY(Pos)
  244. Explode39X(Pos) = FirePosX(Pos)
  245. Explode39Y(Pos) = CurY(Pos)
  246. Explode40X(Pos) = FirePosX(Pos)
  247. Explode40Y(Pos) = CurY(Pos)
  248. Explode41X(Pos) = FirePosX(Pos)
  249. Explode41Y(Pos) = CurY(Pos)
  250. Explode42X(Pos) = FirePosX(Pos)
  251. Explode42Y(Pos) = CurY(Pos)
  252. Explode43X(Pos) = FirePosX(Pos)
  253. Explode43Y(Pos) = CurY(Pos)
  254. Explode44X(Pos) = FirePosX(Pos)
  255. Explode44Y(Pos) = CurY(Pos)
  256. Explode45X(Pos) = FirePosX(Pos)
  257. E